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I.  INTRODUCTION 


The  practical  uae  of  coherent  optical  correlatora  for  target  recognition 
deaianda  a  apatial  light  aodulator  capable  of  diaplaying  input  images  and 
filtera  in  real  tiaie.  A  candidate  for  thia  role  ia  the  magneto-optic  apatial 
light  aiodulator  manufactured  by  Litton  and  Semetex  [l]  .  The  modulator  ia  a 
partially  tranaparent  array  of  pixela  on  a  semiconductor  chip.  Each  pixel  ia 
made  of  a  magnetic  film  that  exhibits  Faraday  rotation  of  polarised  light. 

The  aenae  of  the  rotation,  either  to  the  right  or  to  the  left,  depends  upon 
the  auignetic  polarity  of  the  film,  either  "up"  or  "down".  Figure  1  shows  how 
the  magnetic  state  of  a  pixel  can  be  viewed  as  a  binary  modulation  of  the 
light  amplitude  passing  through  it.  The  polarity  of  each  pixel  can  be 
controlled  by  Mans  of  currents  driven  through  a  grid  of  conductors 
surrounding  the  pixela,  with  the  aid  of  an  externally  applied  magnetic  field. 

The  accomplishment  outlined  in  thia  report  is  the  control  of  a  128  x  128 
pixel  array  light  awdulator  by  an  8085-based  microcomputer  programmed  in  the 
FORTH  language.  Litton  supplied  assembler  software  to  control  the  device  via 
a  6502  processor,  but  straight  assembler  code  ia  difficult  to  modify  for  the 
changing  needs  of  a  laboratory  situation.  The  FORTH  language  provides  thia 
flexibility,  offers  high  level  constructs  such  as  DO  loops,  and  supports 
assembler  sub-routines  for  fast  operation.  In  the  final  version  of  the  FORTH 
software,  an  image  could  be  written  to  the  Litton  magneto-optic  spatial  light 
modulator  in  1.2  seconds  at  an  average  rate  of  one  pixel  every  73  micro¬ 
seconds. 


Light 
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II.  THE  LITTON  128-03  SPATIAL  LIGHT  MODULATOR 

The  megneto-optic  device  used  in  this  work  wes  e  Litton  128-03  LIGHT-MOD. 
It  consists  of  e  squere  errey  of  128  x  128  pixels  on  76  pm  centers.  Eech 
pixel  is  58  pa  x  58  pm.  Conducting  lines  deposited  on  the  chip  form  e  grid 
between  the  pixels.  One  corner  of  etch  pixel  is  ion  implented  so  es  to  be 
especielly  susceptible  to  epplied  magnetic  fields  (see  Figure  2). 

In  operation,  currents  ere  driven  simultaneously  through  two  orthogonal 
lines.  At  their  intersection,  they  produce  a  sufficiently  strong  field  to 
set  the  polarity  of  the  implanted  corner  on  the  nearest  pixel.  Then,  with 
the  aid  of  an  externally  applied  magnetic  field  from  a  coil  surrounding  the 
chip,  the  magnetic  domain  of  the  new  state  expends  to  cover  the  whole  pixel. 
The  polarization  state  of  the  light  passing  through  the  pixel  is  then  changed 
accordingly  [2]. 

The  driver  electronics  of  the  light  modulator  serve  to  direct  the  current 
pulses  on  the  chip  and  in  the  external  field  coil.  Although  some  of  the 
drive  electronics  are  fabricated  together  with  the  megneto-optic  chip,  most 
are  on  an  external  circuit  card.  Although  the  light  modulator  is  capable  of 
switching  one  row  or  column  at  a  time,  the  currently  available  driver  can 
address  only  one  pixel  at  a  time  [3]. 

A  pixel  is  switched  by  sending  two  addresses,  two  timing  signals,  and  a 
polarity  signal  to  the  driver  board.  All  signal  levels  are  TTL  standard. 

Two  seven-bit  addresses  serve  to  specify  the  X  and  Y  coordinates  of  a  pixel. 

A  negative-going  edge  on  line  PT  triggers  the  current  pulses  on  the  chip  that 


intersect  at  the  addressed  pixel.  A  negative-going  edge  on  the  line  PC 
triggers  the  current  pulse  through  the  field  coil.  The  polarity  signal  on 
line  SPA7  determines  the  direction  of  both  chip  and  coil  currents,  so  as  to 
write  or  erase  the  pixel. 

The  time  at  which  each  pulse  is  triggered  is  controlled  by  software,  but 
pulse  widths  are  set  by  the  driver  board.  The  duration  of  chip  current 
pulses  triggered  by  edge  PT  are  timed  by  a  one-shot  to  one  microsecond. 
Likewise,  the  coil  current  pulse  is  set  to  last  for  about  0.6  millisecond.  A 
shorter  coil  pulse  is  not  practical  because  of  the  long  inductive  time 
constant  of  the  coil. 


III.  SOFTWARE  CONTROL  OF  THE  LITTON  DEVICE 


Control  of  the  Litton  device  wee  achieved  with  a  Zenith  Z-100  raicrocom- 
puter  using  an  8085A  microprocessor .  The  software  was  developed  in  a  dialect 
of  the  FORTH  language  (4tht  by  United  Controls  Corporation)  [5].  FORTH-based 
languages  are  well-suited  to  device  control,  as  they  can  incorporate  fast 
assembly-language  routines  into  code,  as  well  as  supporting  high-level 
programming  tools  [4]. 

The  Litton  device  was  operated  in  the  bias-assist  mode,  which  means  that 
chip  and  coil  currents  were  active  simultaneously,  so  as  to  minimize  power 
dissipation  in  the  chip.  In  the  bias-assist  mode,  X  and  Y  pixel  addresses 
must  be  set  at  the  proper  ports  of  the  driver  card,  and  then  the  SPA7 
polarity  bit,  which  will  determine  current  flow  direction  and  thus  the  final 
state  of  the  pixel.  Coil  current  is  then  triggered  by  the  falling  edge  of 
PC.  After  allowing  22S  usee  for  the  current  in  the  field  coil  to  build  up 
against  inductive  delay,  PT  triggers  the  chip  currents  that  effect  the  pixel 
write  or  erase  operation. 

The  first  routine  to  implement  the  bias-assist  mode  was  called  "1D128" 
(see  appendix).  1D128  implements  a  doubly-nested  128  x  128  DO  loop.  The 
loop  counters  I  and  J  represent  the  pixel  addresses,  and  are  both  placed  on 
the  microprocessor  stack.  (FORTH  uses  a  stack-oriented,  RPN  arithmetic). 

The  counters  are  also  used  to  calculate  the  computer  memory  address  that 
contains  the  bit  representing  that  pixel,  and  a  bit  mask  to  sift  that  one  bit 
out  of  its  memory  address.  These  values  are  passed  on  the  stack  to  assembly 
language  routine  1N128,  which  determines  the  polarity  of  the  pixel,  and  acti¬ 
vates  PC  and  SPA7  simultaneously.  A  delay  loop  is  run  for  225  psec 
( COIL. RISE. DELAY) ,  and  then  the  X  and  Y  values  are  output  to  ports  that  con¬ 
nect  to  the  driver  card  address  lines.  PT  is  then  activated,  and  control 
returns  to  1D128  to  set  up  the  parameters  for  the  next  pixel  and  start  again 
after  the  coil  current  has  decayed.  A  schematic  of  the  pulse  timing  is  shown 
in  Figure  3. 

1D128  writes  an  image  to  the  16,384  pixels  of  the  device  in  48  seconds. 
The  algorithm  is  slow  because  the  delay  between  pixels  is  set  by  the  near¬ 
millisecond  time  constant  of  the  coil  current  and  the  unexpectedly  high 
overhead  time  associated  with  doubly-nested  DO  loops.  A  faster  approach  is 
to  erase  all  pixels  under  the  cover  of  one  long  coil  current  pulse,  then 
reverse  the  polarity  of  the  coil  current,  and  write  to  all  required  pixels. 

In  this  fashion,  the  delay  between  addressing  of  consecutive  pixels  is 
limited  only  by  the  speed  of  the  microprocessor  in  loading  the  pixels  of  the 
bitmapped  image  and  sending  them  out  with  proper  addresses  and  timing 
signals.  The  coil  current  can  be  prolonged  indefinitely  by  repeatedly 
retriggering  the  one-shot  that  shapes  the  pulse. 

The  faster  algorithm  for  writing  to  the  Litton  device  is  shown  in  the 
appendix.  The  word  LITTON  first  invokes  the  word  ERA128,  which  performs  a 
128  step  DO  loop,  each  time  invoking  the  assembly  language  routine  ERASEROW. 
ERASEROW,  in  turn,  sets  up  a  coil  pulse  of  erase  polarity  and  triggers  chip 
currents  to  sequentially  erase  all  the  pixels  in  a  row,  while  periodically 
retriggering  the  coil  current.  After  ERA128  is  completed,  the  whole  device 
has  been  erased.  In  the  same  fashion,  WRITE128  repeatedly  invokes  WRITEROW. 


WRITEROW  has  a  logic  similar  to  ERASEROW,  except  that  the  bitmap  location 
corresponding  to  each  pixel  must  be  tested  to  see  if  a  PT  signal  is  required 
for  a  write  at  that  spot.  On  each  row,  only  the  "on"  pixels  are  written  to, 
while  the  coil  current  is  repeatedly  refreshed  by  pulsing  PC  low.  Pulse 
timing  is  shown  in  Figure  4.  A  complete  erase  and  write  operation  takes  1.2 
seconds. 

If  one  wishes  to  study  these  routines,  it  is  helpful  to  know  that  the 
pixel  X  address  is  mapped  to  an  8-bit  port  labelled  X.CTL.PORT,  as  the  Y 
address  is  mapped  to  Y.CTL.PORT.  A  single  port  called  either  COIL. CTL. PORT 
or  TRIGGER. CTL. PORT  maps  SPA7  (the  least  significant  or  zeroth  bit),  PT  (the 
first  bit),  and  PC  (the  second  bit).  The  other  five  bits  of  the  port  are 
unused.  All  assembler  mnemonics  are  baaed  on  Intel  standard,  but  the 
operands  precede  the  mnemonics,  and  FORTH  conditional  constructs  such  as 
BEGIN  ...  ENDZ  (end  on  zero)  are  used. 


IV.  CONCLUSION 

Figure  5  shows  two  images  written  to  the  Litton  device  using  the  FORTH 
word  LITTON.  The  combination  erase/write  operation  takes  1.2  seconds.  (As 
is  usual  for  this  device,  some  pixels  are  switched  on  randomly,  due  to 
varying  magnetic  susceptibility  across  the  face  of  the  chip).  This  is  satis* 
factory  for  laboratory  work,  but  is  probably  near  the  lower  limit  possible 
for  microprocessor  control  of  the  present  driver  electronics.  The  sequential 
fetching  of  data,  calculation,  and  output  of  addresses  and  timing  signals 
takes  far  longer  than  the  approximately  1  microsecond  needed  to  switch  a 
pixel.  Increasing  the  writing  speed  to  video  frame  rates  and  beyond  will 
require  simultaneous,  parallel  addressing  of  a  whole  row  of  pixels,  perhaps 
supported  by  some  form  of  direct  memory  access  that  bypasses  the 
microprocessor.  However,  in  lieu  of  such  special  purpose  hardware,  FORTH 
based  software  will  continue  to  provide  a  suitable  combination  of  speed, 
flexibility,  and  ease  of  modification  for  changing  laboratory  needs. 
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APPENDIX 


1D128 


1ND128.4TH 

DATAC  1  Z  COIL. FALL. DELAY 
DATAC  61  Z  COIL. RISE .DELAY 

CODE  1N128  (  X*236+Y,  bitmask .bitmapADDR — ) 

H  POP,  (  get  bitmapADDR  into  regHL) 

D  POP,  (  get  bitmask  into  regE,  regD  unaffected) 
A  E  MOV, 

M  ANA, 

IFNZ  A  PIXEL. ON  MVI ,  THEN 
D  A  MOV, 

PC. LEADING. EDGE  OR I ,  TRIGGER .CTL .PORT  OUT, 

A  D  MOV, 

PC. TRAILING .EDGE  ORI ,  TRIGGER .CTL .PORT  OUT, 

"  COIL. RISE. DELAY  LHLD,  BEGIN 
L  DCR ,  ENDZ 

H  POP,  (  Y  into  regL,  X  into  regH) 

A  L  MOV,  Y. CTL. PORT  OUT, 

A  H  MOV,  X. CTL .PORT  OUT, 

A  D  MOV,  <  restore  SPA7  bit) 

PT. LEADING .EDGE  ORI,  TRIGGER .CTL .PORT  OUT, 

A  D  MOV, 

PT. TRAILING. EDGE  ORI,  TRIGGER. CTL .PORT  OUT, 

"  COIL. FALL. DELAY  LHLD,  BEGIN 
NOP,  NOP,  NOP, 

L  DCR,  ENDZ 


:  1D128  (  display  bitmap  to  L-128) 

127  0  DO 
127  0  DO 

I  SHL8  J  OR  (  leave  X*236+Y  on  stack) 

I  8  /MOD  DROP  ORTABLE  ♦  B«  (  leave  bitmask  on  stack) 
I  J  CELLADR  8  /  BITMAP  ♦  <  leave  address  on  stack) 

INI  28 

LOOP 

LOOP 


00000000B  CONST  PIXEL. OFT 
0000000 lB  CONST  PIXEL. ON 
I11I1100B  CONST  PT. LEADING. EDGE 
1H1I110B  CONST  PT  .TRAILING.  EDGE 
1I1110I0B  CONST  PC. LEADING. EDGE 
lllllllOB  CONST  PC. TRAILING. EDGE 


(  10T) 
(  10T) 

(  4T> 

(  7T) 

<  IOT) 

(  4T) 

<  17T) 

(  4T) 

(  17T) 

(  16T) 

(  14T) 

<  IOT) 

(  14T) 

(  14T) 

C  4T) 

(  17T) 
t  4T) 

<  17T) 

(  16T) 

(  12T) 

(  14T) 


A-l 


LITTON. 4TM 


-  ERA8EMAR.4TH"  LOAD 

-  WRITEMAR.4TH"  LOAD 

i  LITTON  ERA128  WRITE12B  | 


ERASEMAR .4TH 

OOOOOOOOB  CONST  LEADING .ESSE 
OOOOOUOS  CONST  TRAILING .ESSE 

CODE  ERASEROW 

H  |  MOV,  L  C  MOV.  "  4TH.RR0SR AM. COUNTER  SHLO. 

B  POP.  (  PLACES  I,  THE  Y “COORDINATE  INTO  RES  C  ) 
»  127  MV I , 

A  RC  .LEADING .EDGE  MV  I ,  TltI8SER.CTL.R0RT  OUT, 

A  PC. TRAIL INS. EDOE  MV I ,  TRIS8ER .CTL.RORT  OUT, 

"  COIL. RISE. DELAY  LHLD,  8EBIN 
L  OCR,  ENDZ 

•ESIN 

A  C  MOV,  T. CTL.RORT  OUT, 

A  B  MOV,  X. CTL.RORT  OUT, 

A  LEADING .EDOE  MV I ,  COIL .CTL .RORT  OUT, 

A  TRAILING .EDGE  MV I ,  COIL .CTL .RORT  OUT, 

B  OCR,  ENDZ 

"  4TH. PROGRAM. COUNTER  LHLD,  B  H  MOV,  C  L  MOV, 


i  ERA12S 

127  0  DO 
I 

ERASEROW 

LOOP 


I 


(  10T) 
(  7T) 
(  17T) 
(  17T) 
(  16T) 

<  14T) 

<  14T) 
(  14T) 
(  17T) 
(  17T) 
(  14T) 


1  ■ 

WRITEMAP.4TH 

2  BLOCK  BITMAPADDR 

1UU001B  CONST  PC  .PT  .LEAD 

11111111B  CONST  TRAILING .WRITE 

11111011B  CONST  PC .LEAD .WRITE 

CODE  WRITEROW 

H  B  NOV,  L  C  NOV,  "  4TH .PROGRAM .COUNTER  SHLO, 

C  0  NVI, 

(  7T) 

D  POP,  <  PLACES  I,  THE  Y-COORDINATE  INTO  RES  E,  REB  D 

UNAFFECTED) 

(  10T) 

A  E  NOV,  Y.CTL.PORT  OUT, 

<  14T) 

A  PC. LEAD. WRITE  NVI,  TRISGER.CTL.PORT  OUT, 

C  17T) 

A  TRAILING .WRITE  NVI,  TRISGER.CTL.PORT  OUT, 

(  17T) 

"  COIL. RISE. DELAY  LHLD ,  BEGIN 

<  16T) 

L  OCR,  ENDZ 

(  14T) 

BEGIN 

"  BITNAPADDR  LHLD, 

<  16T) 

A  L  NOV,  1  ADI, 

(  1  IT) 

L  A  NOV, 

(  4T) 

IFC 

A  H  NOV,  1  ADI,  H  A  NOV, 

THEN 

(  1ST) 

D  H  NOV,  E  L  NOV, 

(  ST) 

"  BITNAPADDR  SHLD, 

<  16T> 

B  0  NVI, 

BEGIN 

(  7T> 

A  B  NOV,  0  SUI, 

IFZ 

(  11T) 

D  LDAX , 

ELSE 

(  7T) 

A  L  NOV, 

THEN 

(  4T) 

RAL, 

(  4T) 

L  A  MOV, 

IFC 

(  4T) 

A  C  NOV, 

(  4T) 

RLC,  RLC ,  RLC, 

(  12T) 

B  ADD,  X.CTL.PORT  OUT, 

(  14T) 

A  PC .PT .LEAD  NVI,  TRISGER.CTL.PORT  OUT, 

(  17T) 

A  TRAILING. WRITE  MVI ,  TRISGER.CTL.PORT  OUT, 

ELSE 

(  17T) 

A  PC. LEAD. WRITE  MVI,  TRISGER.CTL.PORT  OUT, 

(  17T) 

A  TRAILING .WRITE  MVI,  TRIGGER .CTL .PORT  OUT, 

THEN 

(  17T) 

B  INR,  A  B  MOV,  6  SUI.  ENDZ 

(  21T) 
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